program arm2;

{%ToDo 'arm2.todo'}

uses
  Forms,
  Windows,
  main in 'main.pas' {fmMain},
  SearchResult in 'SearchResult.pas' {fmResult},
  EKLoad in 'EKLoad.pas' {fmEKLoad},
  BookSearch in 'BookSearch.pas' {fmBookSearch},
  DicDM in 'DicDM.pas' {dmDic: TDataModule},
  AdmBin in 'AdmBin.pas',
  RepParams in 'RepParams.pas' {fmRepParams},
  BookEntry in 'BookEntry.pas' {fmBookEntry},
  SplashForm in 'SplashForm.pas' {fmSplash},
  BookCards in 'BookCards.pas' {fmPrintCards},
  EKunload in 'EKunload.pas' {fmEKunload},
  Parties in 'Parties.pas' {fmParties},
  Party in 'Party.pas' {fmParty},
  EKdelete in 'EKdelete.pas' {fmEKDelete},
  SelectBook in 'SelectBook.pas' {fmSelectBook},
  SetGen in 'SetGen.pas' {fmSetGen},
  Stat in 'Stat.pas' {fmStat},
  Import in 'Import.pas' {fmImport},
  ibDic in 'Dic\ibDic.pas' {ibDicForm},
  IpLists in 'IpLists.pas',
  Authors in 'Authors.pas' {fmAuthors},
  PredmetDic in 'PredmetDic.pas' {fmPredmetDic},
  IzdatDic in 'IzdatDic.pas' {fmIzdatDic},
  CallAnyDic in 'CallAnyDic.pas',
  LoadData in 'LoadData.pas' {fmLoadData},
  ChangeAuthor in 'ChangeAuthor.pas' {fmChangeAuthor},
  ChangeEkAndDic in 'ChangeEkAndDic.pas' {fmChangeEkAndDic},
  Marc in 'Marc.pas' {fmMarc},
  ArticleEntry in 'ArticleEntry.pas' {fmArticleEntry},
  DBFormUtils in 'DBFormUtils.pas',
  ArticleSearch in 'ArticleSearch.pas' {fmArticleSearch},
  ArticleSearchResult in 'ArticleSearchResult.pas' {fmArticleSearchResult},
  Arm2res in 'Arm2res.pas',
  AudioBookEntry in 'AudioBookEntry.pas' {fmAudioBookEntry},
  About in 'About.pas',
  SortOrder in 'SortOrder.pas' {fmSortOrder},
  ExportToRUSMARC in 'ExportToRUSMARC.pas' {fmExportToRUSMARC};

{$R *.RES}

begin
  Application.Initialize;
  fmSplash := TfmSplash.Create(Application);
  fmSplash.Show;
  fmSplash.Update;
  Sleep(2000);
  fmSplash.Free;
  //Application.ProcessMessages;
  Application.CreateForm(TfmMain, fmMain);
  Application.CreateForm(TdmDic, dmDic);
  Application.CreateForm(TfmPrintCards, fmPrintCards);
  Application.CreateForm(TfmRepParams, fmRepParams);
  Application.CreateForm(TfmSelectBook, fmSelectBook);
  Application.CreateForm(TfmSetGen, fmSetGen);
  Application.CreateForm(TfmStat, fmStat);
  Application.CreateForm(TfmImport, fmImport);
  Application.CreateForm(TfmMarc, fmMarc);
  Application.Run;
end.
